home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / util / misc / vhlogger_v2.lzh / ham.vh < prev    next >
Text File  |  1992-07-19  |  2KB  |  87 lines
  1. /* ham.vh a rexx   02/24/92  V. Herried          */
  2. /* ham.vh Copyright (c) 1992 Vincent J. Herried
  3.                  1688 Staffordshire RD.
  4.                  Columbus, OH 43229
  5.                  KA8CTE           */
  6.  
  7. /*
  8. Function:   Read in a sequential ascii text file,
  9.         parse it, get the call signs out,
  10.         search the vhlogger data base for the call sign,
  11.         If it does not exist in my vhlogger data base then
  12.         add it.
  13.  
  14. Arguments:  None
  15.  
  16. History:
  17.         Version 1 02/04/92    initial version.
  18.  
  19. Execution:  From the cli, enter
  20.         <vhloggger ham.vh>
  21.  
  22.  
  23. */
  24.  
  25. options results
  26. address "vhlogger"
  27.  
  28. /* Open the ascii input file that we are going to parse for call signs */
  29.  
  30. say   "Enter a ascii input file name or 'end'?"
  31. parse pull file
  32. if file = "END" then exit(0)
  33. if (open("input",file,"Read") = 0) then do
  34.    say "Open failed for file" file
  35.    exit(0)
  36. end
  37.  
  38. x=get()
  39. x=get()
  40. x=get()
  41. dateval="10/03/88"   /* date of this ascii file was built */
  42.  
  43. startt=time()
  44. count=0
  45. do while(get())
  46.    count = count +1
  47.    parse var in callsign name ', ' address ', ' city ', ' zip phone junk junk
  48.    callsign=strip(callsign)
  49.    name=strip(name)
  50.    address=strip(address)
  51.    city=strip(city)
  52.    zip=strip(zip)
  53.    phone=strip(phone)
  54.  
  55.  
  56.    say "Call="callsign"Name="name"Address="address"City="city'\'
  57.    say "Zip="zip"Phone="phone'\'
  58.  
  59.    update=';'callsign';'name';'dateval';;;;;'address';'city';OH;'zip';'phone
  60.    say update
  61.  
  62.    'find' callsign
  63.    if rc = 0 then iterate
  64.    ans='?'
  65.    do while(ans ~= 'A' & ans ~= 'S' & ans ~= 'E')
  66.       say "reply Add, Skip, or End"
  67.       pull ans
  68.    end
  69.    if ans = 'E' then exit(0)
  70.    if ans = 'S' then iterate
  71.    'update' update
  72.    say "hit return to continue"
  73.    pull ans
  74. end
  75.  
  76. close('input')
  77. say "count"count "start time" startt "end time" time()
  78. say "all done, bye"
  79. exit(0)
  80.  
  81. get:
  82. x=readln("input")
  83. in=translate(x,' ','09'x,)
  84. if x ~= '' then return(1)
  85. else return(0)
  86.  
  87.